home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / OOPTUT34.ZIP / RECINIT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-31  |  1.2 KB  |  45 lines
  1. program record_initialization;
  2.  
  3. {~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~}
  4. {  Program to illustrate the initialization of a record by conventional  }
  5. {  means as opposed to the use of 'objects'.                             }
  6. {                                                                        }
  7. {  RECINIT.PAS  ->  RECINIT.EXE       R. Shaw    17.2.91                 }
  8. {________________________________________________________________________}
  9.  
  10. uses Crt;
  11.  
  12. type
  13.    Rec = record
  14.          i : integer;
  15.          r : real;
  16.          s : string[50];
  17.          end;
  18.  
  19. procedure Init( int : integer; re : real; st : string; var DataRec : Rec);
  20.  
  21. begin
  22.    with DataRec do
  23.    begin
  24.       i := int;
  25.       r := re;
  26.       s := st;
  27.    end;
  28. end;          { of procedure Init }
  29.  
  30. var
  31.    ThisRec  : Rec;
  32.  
  33. begin
  34.      ClrScr;
  35.      Init(1234, 9.876, 'This is the string entry for this record', ThisRec);
  36.      writeln( 'The integer value is ', ThisRec.i);
  37.      writeln( 'The real value is ', ThisRec.r);
  38.      writeln( 'The string is " ', ThisRec.s, '"');
  39.      writeln;
  40.      writeln;
  41.      write('Press any key to continue: ');
  42.      repeat until keypressed;
  43. end.
  44.  
  45.